home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmis.dir / Internal_15_scoreInternal.ls < prev    next >
Encoding:
Text File  |  2001-09-10  |  860 b   |  34 lines
  1. property cursorPos, typeCount
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   typeCount = 0
  6.   cursorPos = the mouseLoc
  7.   sprite(3).member = member("v" & (the frameLabel).char[2], 1)
  8. end
  9.  
  10. on exitFrame me
  11.   if the mouseLoc <> cursorPos then
  12.     cursorPos = the mouseLoc
  13.     gmObject.traceCursor(cursorPos)
  14.   end if
  15.   typeCount = typeCount + 1
  16.   if typeCount > 7 then
  17.     if (gmObject.pippiType > 0) and (gmObject.pippiType < 5) then
  18.       gmObject.pippiType = random(4)
  19.       gmObject.setmember()
  20.     end if
  21.     typeCount = 0
  22.   end if
  23.   if (the ticks > (gmObject.timerX + 150)) and (the ticks < (gmObject.timerX + 200)) then
  24.     if gmObject.fallen = 0 then
  25.       sndObject.respondSnd(2, 1, 1, 1)
  26.       gmObject.timerX = gmObject.timerX - 50
  27.     end if
  28.   end if
  29.   if the ticks > (gmObject.timerX + 450) then
  30.     gmObject.fallXPippi()
  31.   end if
  32.   go(the frame)
  33. end
  34.